From: Jim Blandy <jimb@redhat.com>
Date: Mon, 10 May 1993 00:17:31 +0000 (+0000)
Subject: * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96333
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=2fc6697323fd6cc950d808347b89ac3483d311e1;p=emacs.git

* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
	returning a non-ascii key sequence unless FIRSTONLY is the symbol
	`non-ascii'.
---

diff --git a/src/keymap.c b/src/keymap.c
index ea7e4aceca3..096a6ca1e4a 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -73,7 +73,7 @@ Lisp_Object Vminor_mode_map_alist;
    documentation.  */
 Lisp_Object Vfunction_key_map;
 
-Lisp_Object Qkeymapp, Qkeymap;
+Lisp_Object Qkeymapp, Qkeymap, Qnon_ascii;
 
 /* A char over 0200 in a key sequence
    is equivalent to prefixing with this character.  */
@@ -1311,6 +1311,28 @@ Control characters turn into \"^char\", etc.")
 
   return build_string (tem);
 }
+
+/* Return non-zero if SEQ contains only ASCII characters, perhaps with
+   a meta bit.  */
+static int
+ascii_sequence_p (seq)
+     Lisp_Object seq;
+{
+  Lisp_Object i;
+  int len = XINT (Flength (seq));
+  
+  for (XFASTINT (i) = 0; XFASTINT (i) < len; XFASTINT (i)++)
+    {
+      Lisp_Object elt = Faref (seq, i);
+
+      if (XTYPE (elt) != Lisp_Int
+	  || (XUINT (elt) & ~CHAR_META) >= 0x80)
+	return 0;
+    }
+
+  return 1;
+}
+
 
 /* where-is - finding a command in a set of keymaps.			*/
 
@@ -1319,9 +1341,12 @@ DEFUN ("where-is-internal", Fwhere_is_internal, Swhere_is_internal, 1, 5, 0,
 If KEYMAP is nil, search only KEYMAP1.\n\
 If KEYMAP1 is nil, use the current global map.\n\
 \n\
-If optional 4th arg FIRSTONLY is non-nil,\n\
-return a string representing the first key sequence found,\n\
-rather than a list of all possible key sequences.\n\
+If optional 4th arg FIRSTONLY is non-nil, return a string representing\n\
+the first key sequence found, rather than a list of all possible key\n\
+sequences.  If FIRSTONLY is t, avoid key sequences which use non-ASCII\n\
+keys and therefore may not be usable on ASCII terminals.  If FIRSTONLY\n\
+is the symbol `non-ascii', return the first binding found, no matter\n\
+what its components.\n\
 \n\
 If optional 5th arg NOINDIRECT is non-nil, don't follow indirections\n\
 to other keymaps or slots.  This makes it possible to search for an\n\
@@ -1469,13 +1494,28 @@ indirect definition itself.")
 	    }
 
 	  /* It is a true unshadowed match.  Record it.  */
+	  found = Fcons (sequence, found);
 
-	  if (!NILP (firstonly))
+	  /* If firstonly is Qnon_ascii, then we can return the first
+	     binding we find.  If firstonly is not Qnon_ascii but not
+	     nil, then we should return the first ascii-only binding
+	     we find.  */
+	  if (EQ (firstonly, Qnon_ascii))
+	    return sequence;
+	  else if (! NILP (firstonly) && ascii_sequence_p (sequence))
 	    return sequence;
-	  found = Fcons (sequence, found);
 	}
     }
-  return Fnreverse (found);
+
+  found = Fnreverse (found);
+
+  /* firstonly may have been t, but we may have gone all the way through
+     the keymaps without finding an all-ASCII key sequence.  So just
+     return the best we could find.  */
+  if (! NILP (firstonly))
+    return Fcar (found);
+    
+  return found;
 }
 
 /* Return a string listing the keys and buttons that run DEFINITION.  */
@@ -2039,6 +2079,9 @@ key, typing `ESC O P x' would return [pf1 x].");
   Qkeymapp = intern ("keymapp");
   staticpro (&Qkeymapp);
 
+  Qnon_ascii = intern ("non-ascii");
+  staticpro (&Qnon_ascii);
+
   defsubr (&Skeymapp);
   defsubr (&Smake_keymap);
   defsubr (&Smake_sparse_keymap);